From 332443b3402215422b1bc531242e93ee73540b8c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 16 Sep 2002 19:29:33 +0000 Subject: [PATCH] (gomoku-move-up, gomoku-move-down): Use forward-line and move-to-column. --- lisp/play/gomoku.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index 888dfe34ba0..d2333007fd6 100644 --- a/lisp/play/gomoku.el +++ b/lisp/play/gomoku.el @@ -1156,13 +1156,17 @@ If the game is finished, this command requests for another game." "Move point down one row on the Gomoku board." (interactive) (if (< (gomoku-point-y) gomoku-board-height) - (next-line gomoku-square-height))) + (let ((column (current-column))) + (forward-line gomoku-square-height) + (move-to-column column)))) (defun gomoku-move-up () "Move point up one row on the Gomoku board." (interactive) (if (> (gomoku-point-y) 1) - (previous-line gomoku-square-height))) + (let ((column (current-column))) + (forward-line (- 1 gomoku-square-height)) + (move-to-column column)))) (defun gomoku-move-ne () "Move point North East on the Gomoku board." -- 2.30.2